﻿Imports System.ComponentModel
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.XtraSplashScreen
Imports DevExpress.XtraBars.Docking2010.Views

Public Class Main1
    Dim bien As Integer
    Sub New()
        SplashScreenManager.ShowForm(GetType(WaitForm1))
        InitSkins()
        InitializeComponent()
        Me.InitSkinGallery()
        Me.ribbonControl.Minimized = True
        SplashScreenManager.CloseForm()
    End Sub
    Sub InitSkins()
        DevExpress.Skins.SkinManager.EnableFormSkins()
        DevExpress.UserSkins.BonusSkins.Register()
        UserLookAndFeel.Default.SetSkinStyle("Money Twins")
    End Sub
    Private Sub InitSkinGallery()
        SkinHelper.InitSkinGallery(rgbiSkins, True)
    End Sub

    Private Sub BarButtonItemKhachHang_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemKhachHang.ItemClick
        Me.ribbonControl.Minimized = True
        DM_KhachHang.Show()
        DM_KhachHang.MdiParent = Me
        DM_KhachHang.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemKhaiBaoSoHoaDon_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemKhaiBaoSoHoaDon.ItemClick
        Me.ribbonControl.Minimized = True
        DM_KhaiBaoSoHoaDon.Show()
        DM_KhaiBaoSoHoaDon.MdiParent = Me
        DM_KhaiBaoSoHoaDon.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemKheUocVay_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemKheUocVay.ItemClick
        Me.ribbonControl.Minimized = True
        DM_KheUocVay.Show()
        DM_KheUocVay.MdiParent = Me
        DM_KheUocVay.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemKho_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemKho.ItemClick
        Me.ribbonControl.Minimized = True
        DM_Kho.Show()
        DM_Kho.MdiParent = Me
        DM_Kho.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemKhoanMucPhi_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemKhoanMucPhi.ItemClick
        Me.ribbonControl.Minimized = True
        DM_KhoanMucPhi.Show()
        DM_KhoanMucPhi.MdiParent = Me
        DM_KhoanMucPhi.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemLapUyNhiemChi_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemLapUyNhiemChi.ItemClick
        Me.ribbonControl.Minimized = True
        DM_LapUyNhiemChi.Show()
        DM_LapUyNhiemChi.MdiParent = Me
        DM_LapUyNhiemChi.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem2_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemLoai.ItemClick
        Me.ribbonControl.Minimized = True
        DM_Loai.Show()
        DM_Loai.MdiParent = Me
        DM_Loai.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemMauIn_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMauIn.ItemClick
        Me.ribbonControl.Minimized = True
        DM_MauIn.Show()
        DM_MauIn.MdiParent = Me
        DM_MauIn.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNganHang_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNganHang.ItemClick
        Me.ribbonControl.Minimized = True
        DM_NganHang.Show()
        DM_NganHang.MdiParent = Me
        DM_NganHang.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNganhNghe_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNganhNghe.ItemClick
        Me.ribbonControl.Minimized = True
        DM_NganhNghe.Show()
        DM_NganhNghe.MdiParent = Me
        DM_NganhNghe.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNghiepVu_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNghiepVu.ItemClick
        Me.ribbonControl.Minimized = True
        DM_NghiepVu.Show()
        DM_NghiepVu.MdiParent = Me
        DM_NghiepVu.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNguonLuc_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNguonLuc.ItemClick
        Me.ribbonControl.Minimized = True
        DM_LapUyNhiemChi.Show()
        DM_LapUyNhiemChi.MdiParent = Me
        DM_LapUyNhiemChi.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNguonVon_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNguonVon.ItemClick
        Me.ribbonControl.Minimized = True
        DM_NguonVon.Show()
        DM_NguonVon.MdiParent = Me
        DM_NguonVon.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemNhanVien_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemNhanVien.ItemClick
        Me.ribbonControl.Minimized = True
        DM_NhanVien.Show()
        DM_NhanVien.MdiParent = Me
        DM_NhanVien.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemPhanLoai_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemPhanLoai.ItemClick
        Me.ribbonControl.Minimized = True
        DM_PhanLoai.Show()
        DM_PhanLoai.MdiParent = Me
        DM_PhanLoai.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemPhongBan_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemPhongBan.ItemClick
        Me.ribbonControl.Minimized = True
        DM_PhongBan.Show()
        DM_PhongBan.MdiParent = Me
        DM_PhongBan.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemPhuongXa_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemPhuongXa.ItemClick
        Me.ribbonControl.Minimized = True
        DM_PhuongXa.Show()
        DM_PhuongXa.MdiParent = Me
        DM_PhuongXa.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemTinhTrang_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemTinhTrang.ItemClick
        Me.ribbonControl.Minimized = True
        DM_TinhTrang.Show()
        DM_TinhTrang.MdiParent = Me
        DM_TinhTrang.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemTienMat_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemTienMat.ItemClick, BarSubItemTienMat.ItemClick
        Me.ribbonControl.Minimized = True
        TC_TienMat.Show()
        TC_TienMat.MdiParent = Me
        TC_TienMat.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem2_ItemClick_1(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem_MuaHangNuocNgoai.ItemClick
        Me.ribbonControl.Minimized = True
        MH_MuaHangNuocNgoai1.Show()
        MH_MuaHangNuocNgoai1.MdiParent = Me
        MH_MuaHangNuocNgoai1.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemBanHang_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBanHang.ItemClick, BarButtonItemBanHangTrongNuoc.ItemClick
        Me.ribbonControl.Minimized = True
        BH_BanHangTrongNuoc2.Show()
        BH_BanHangTrongNuoc2.MdiParent = Me
        BH_BanHangTrongNuoc2.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub ribbonControl_SelectedPageChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ribbonControl.SelectedPageChanged
        If Me.ribbonControl.SelectedPage Is RibbonPage2 Then
        End If
    End Sub

    Private Sub BarButtonItem12_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
        Me.ribbonControl.Minimized = True
        TC_NganHang1.Show()
        TC_NganHang1.MdiParent = Me
        TC_NganHang1.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemQuanHuyen_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemQuanHuyen.ItemClick
        Me.ribbonControl.Minimized = True
        DM_QuanHuyen.Show()
        DM_QuanHuyen.MdiParent = Me
        DM_QuanHuyen.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemQuocGia_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemQuocGia.ItemClick
        Me.ribbonControl.Minimized = True
        DM_QuocGia.Show()
        DM_QuocGia.MdiParent = Me
        DM_QuocGia.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemTaiKhoanNganHang_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemTaiKhoanNganHang.ItemClick
        Me.ribbonControl.Minimized = True
        DM_TaiKhoanNganHang.Show()
        DM_TaiKhoanNganHang.MdiParent = Me
        DM_TaiKhoanNganHang.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemThoiGian_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemThoiGian.ItemClick
        Me.ribbonControl.Minimized = True
        DM_ThoiGian.Show()
        DM_ThoiGian.MdiParent = Me
        DM_ThoiGian.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemTinhThanh_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemTinhThanh.ItemClick
        Me.ribbonControl.Minimized = True
        DM_TinhThanh.Show()
        DM_TinhThanh.MdiParent = Me
        DM_TinhThanh.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemTiGia_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemTiGia.ItemClick
        Me.ribbonControl.Minimized = True
        DM_TyGia.Show()
        DM_TyGia.MdiParent = Me
        DM_TyGia.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemUyNhiemChi_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemUyNhiemChi.ItemClick
        Me.ribbonControl.Minimized = True
        DM_UyNhiemChi.Show()
        DM_UyNhiemChi.MdiParent = Me
        DM_UyNhiemChi.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemBanHangNuocNgoai_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBanHangNuocNgoai.ItemClick
        Me.ribbonControl.Minimized = True
        BH_BanHangNuocNgoai1.Show()
        BH_BanHangNuocNgoai1.MdiParent = Me
        BH_BanHangNuocNgoai1.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem9_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemThuChiTienMat.ItemClick
        Me.ribbonControl.Minimized = True
        TC_NganHang1.Show()
        TC_NganHang1.MdiParent = Me
        TC_NganHang1.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem1_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem_MuaHangTrongNuoc.ItemClick
        Me.ribbonControl.Minimized = True
        MH_MuaHangTrongNuoc.Show()
        MH_MuaHangTrongNuoc.MdiParent = Me
        MH_MuaHangTrongNuoc.WindowState = FormWindowState.Maximized
    End Sub

 
    Private Sub BarButtonItemBangBaoGia_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBangBaoGia.ItemClick
        Me.ribbonControl.Minimized = True
        BH_BangGia.Show()
        BH_BangGia.MdiParent = Me
        BH_BangGia.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemChuongTrinhKhuyenMai_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemChuongTrinhKhuyenMai.ItemClick
        Me.ribbonControl.Minimized = True
        BH_ChuongTrinhKhuyenMai.Show()
        BH_ChuongTrinhKhuyenMai.MdiParent = Me
        BH_ChuongTrinhKhuyenMai.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem_LapQuanLyHopDongMuaHang_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem_LapQuanLyHopDongMuaHang.ItemClick
        Me.ribbonControl.Minimized = True
        BH_HopDongMuaBan.Show()
        BH_HopDongMuaBan.MdiParent = Me
        BH_HopDongMuaBan.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemHangHoa_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemHangHoa.ItemClick
        Me.ribbonControl.Minimized = True
        DM_HangHoa.Show()
        DM_HangHoa.MdiParent = Me
        DM_HangHoa.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItem_QuanLyDonDatHang_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem_QuanLyDonDatHang.ItemClick
        Me.ribbonControl.Minimized = True
        MH_DonDatHang.Show()
        MH_DonDatHang.MdiParent = Me
        MH_DonDatHang.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub Main1_Load(sender As Object, e As EventArgs) Handles Me.Load
    End Sub

    Private Sub BarButtonItemHeThongBaoCaoKho_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemHeThongBaoCaoKho.ItemClick
        Me.ribbonControl.Minimized = True
        KH_TonKho.Show()
        KH_TonKho.MdiParent = Me
        KH_TonKho.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BarButtonItemKiemKeHang_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemKiemKeHang.ItemClick
        Me.ribbonControl.Minimized = True
        KH_TheKho.Show()
        KH_TheKho.MdiParent = Me
        KH_TheKho.WindowState = FormWindowState.Maximized
    End Sub
End Class
